home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / UTILITY / DESKTOP / W_ONE49 / ARGS.CP_ / ARGS.CP
Text File  |  1994-04-27  |  4KB  |  91 lines
  1. /******************************************************************\
  2. *                                                                  *
  3. *          w       w                oooo                           *
  4. *          w       w  iii  n   n   o    o   n   n  eeee            *
  5. *          w       w   i   nn  n  o      o  nn  n  e               *
  6. *          w   w   w   i   n n n  o      o  n n n  eee             *
  7. *           w w w w    i   n  nn   o    o   n  nn  e               *
  8. *            w   w    iii  n   n    oooo    n   n  eeee            *
  9. *                                                                  *
  10. *     C o m m a n d   L a n g u a g e   I n t e r p r e t e r      *
  11. *                                                                  *
  12. *                                                                  *
  13. *   External Command ARGS                                          *
  14. *   Written by Lucien Cinc                                         *
  15. *   Copyright (c) 1993                                             *
  16. *                                                                  *
  17. \******************************************************************/
  18.  
  19. #include "args.h"
  20.  
  21. //    table colours
  22.  
  23. #define COLTAB    DARKGRAY    // colour of table
  24. #define COLHEAD    WHITE        // colour of headings
  25. #define COLFN    LIGHTGRAY    // colour of function names
  26. #define COLVAR    COLFN        // colour of global variables
  27. #define COLARG    WHITE        // colour of command line args
  28. #define COLNUM    YELLOW        // colour of numbers
  29.  
  30. int main(void)
  31. {
  32.     char *sp;
  33.     int i, n;
  34.  
  35.     screen(BUFFERED);
  36.  
  37.     // command line argument functions
  38.  
  39.     textcolor(COLTAB);
  40.     printf("                  %cCommand line argument functions%c\n", COLHEAD, COLTAB);
  41.     printf(" ---+------------------------+-------------+------------------------\n");
  42.     printf("  %cn %c|        %cargv(n)         %c| %cisargstr(n) %c|         %cargstr(n)      %c\n",
  43.                 COLFN, COLTAB, COLFN, COLTAB, COLFN, COLTAB, COLFN, COLTAB);
  44.     printf(" ---+------------------------+-------------+------------------------\n");
  45.     n = argc();
  46.     for (i = 0;i <= n;i++) {
  47.  
  48.         printf(" %c%2d %c| %c%-22s %c|      %c%d      %c|",
  49.                 COLNUM, i, COLTAB, COLARG, argv(i), COLTAB, COLNUM, isargstr(i), COLTAB);
  50.  
  51.         if (isargstr(i))
  52.             printf(" %c%-17s ", COLARG, argstr(i));
  53.  
  54.         printf("%c\n", COLTAB);
  55.     }
  56.     printf(" ---+------------------------+-------------+------------------------\n");
  57.     printf("  %cargc()    %c= %c%2d%c\n", COLFN, COLTAB, COLNUM, n, COLTAB);
  58.     printf("  %cargnstr() %c= %c%2d%c\n", COLFN, COLTAB, COLNUM, argnstr(), COLTAB);
  59.     printf("  %cargn()    %c= %c%2d%c, %cargs() %c= %c%s%c\n",
  60.                 COLFN, COLTAB, COLNUM, argn(), COLTAB, COLFN, COLTAB, COLARG, args(), COLTAB);
  61.     printf("  %cargtail() %c= %c%s%c\n", COLFN, COLTAB, COLARG, argtail(), COLTAB);
  62.  
  63.     // command line argument path functions
  64.  
  65.     printf(" ---+-------------------------------+-------------------------------\n");
  66.     printf("  %cn %c|          %cargpath(n)           %c|            %cargabs(n)          %c\n",
  67.                 COLFN, COLTAB, COLFN, COLTAB, COLFN, COLTAB);
  68.     printf(" ---+-------------------------------+-------------------------------\n");
  69.     for (i = 0;i <= n;i++)
  70.         printf(" %c%2d %c| %c%-29s %c| %c%-29s%c\n",
  71.                     COLNUM, i, COLTAB, GREEN, argpath(i), COLTAB, GREEN, argabs(i), COLTAB);
  72.     printf(" ---+-------------------------------+-------------------------------\n\n\n\n");
  73.  
  74.     // Command line argument global variables
  75.  
  76.     printf("              %cCommand line argument global variables%c\n", COLHEAD, COLTAB);
  77.     printf(" ---+---------------------------------------------------------------\n");
  78.     printf("  %cn %c|                            %carg_v[n]                           %c\n",
  79.                 COLVAR, COLTAB, COLVAR, COLTAB);
  80.     printf(" ---+---------------------------------------------------------------\n");
  81.     for (i = 0;i <= arg_c;i++)
  82.         printf(" %c%2d %c| %c%s%c\n", COLNUM, i, COLTAB, COLARG, arg_v[i], COLTAB);
  83.     printf(" ---+---------------------------------------------------------------\n");
  84.     printf("  %carg_c %c= %c%d%c\n", COLVAR, COLTAB, COLNUM, arg_c, COLTAB);
  85.     printf(" -------------------------------------------------------------------\n");
  86.  
  87.     screen(UNBUFFERED);
  88.  
  89.     return 0;     // all ok
  90. }
  91.